Prologo: come rimuovere ogni secondo elemento di un elenco

Questa è praticamente la risposta di Landei nella sintassi specifica di Prolog:
r ([], []).
r ([X], [X]).
r ([X, _ | Xs], [X | Ys]): - r (Xs, Ys).
Il secondo predicato non è richiesto.
|
Soluzione alternativa utilizzando foldl / 4:
fold_step (Item, true: [Item | Tail], false: Tail).
fold_step (_Item, false: Tail, true: Tail).
dispari (Elenco, Dispari): -
foldl (fold_step, List, true: Odd, _: []).
Utilizzo:
? - dispari ([1, 2, 3, 4, 5, 6, 7], dispari).
Dispari = [1, 3, 5, 7]
L'idea è di scorrere l'elenco, mantenendo il flag "dispari / pari" e capovolgendo il suo valore (falso -> vero, vero -> falso) su ogni elemento. Inoltre costruiamo gradualmente la lista, aggiungendo quegli elementi che hanno il flag "dispari / pari" uguale a vero, e saltando gli altri.
|
Questa bella risposta di @ code_x386 utilizza elenchi di differenze e foldl / 4.
Usiamo solo una clausola fold_step / 3 e rendiamo la relazione più generale, in questo modo:
fold_step (X, [X | Xs] + Ys, Ys + Xs).
list_odds_evens (List, Odds, Evens): -
foldl (fold_step, List, Odds + Evens, [] + []).
Domande di esempio:
? - list_odds_evens ([a, b, c, d, e, f], Odds, Evens).
Pari = [b, d, f], Odds = [a, c, e]
? - list_odds_evens ([a, b, c, d, e, f, g], Odds, Evens).
Pari = [b, d, f], Odds = [a, c, e, g]
modificare
Perché non utilizzare una clausola in meno ed eliminare il predicato fold_step / 3?
lambda in soccorso!
: - use_module (libreria (lambda)).
list_odds_evens (List, Odds, Evens): -
foldl (\ X ^ ([X | Xs] + Ys) ^ (Ys + Xs) ^ true, List, Odds + Evens, [] + []).
|
Un'altra possibilità è usare i DCG, di solito sono una considerazione utile quando si descrivono gli elenchi:
list_oddindices (L, O): -
frase (oddindices (L), O). % la lista O è descritta da oddindices // 1
oddindices ([]) ->% se L è vuoto
[]. Anche% O è vuoto
oddindices ([X]) ->% se L ha un solo elemento
[X]. % è in O
oddindices ([O, _E | OEs]) ->% se la testa di L è composta da almeno due elementi
[O],% il primo è in O
oddindices (OE). Lo stesso vale per la coda
Questo è certamente meno elegante delle soluzioni che utilizzano foldl / 4 ma il codice è molto facilmente leggibile, tuttavia risolve il compito descritto dall'OP e funziona anche in entrambi i modi:
? - list_oddindices ([1,2,3,4,5,6,7], O).
O = [1, 3, 5, 7];
falso.
? - list_oddindices (L, [1,3,5,7]).
L = [1, _G4412, 3, _G4418, 5, _G4424, 7];
L = [1, _G4412, 3, _G4418, 5, _G4424, 7, _G4430];
falso.
|
Non ho Prolog qui per provarlo, e mi sono un po 'arrugginito, ma dovrebbe essere sulla falsariga di
r ([]): - [].
r ([X]): - [X].
r ([X, Y | Z]): - R = r (Z), [X | R].
[Modificare]
Ovviamente Pad ha ragione. La mia soluzione funzionerebbe in linguaggi funzionali come Haskell o Erlang:
-Haskell
r [] = []
r [x] = [x]
r (x: _: xs) = x: (r xs)
In Prolog devi "tirare" il lato destro nell'elenco degli argomenti per attivare l'unificazione.
|
la tua risposta
StackExchange.ifUsing ("editor", function () {
StackExchange.using ("externalEditor", function () {
StackExchange.using ("snippets", function () {
StackExchange.snippets.init ();
});
});
}, "frammenti di codice");
StackExchange.ready (function () {
var channelOptions = {
tag: "" .split (""),
id: "1"
};
initTagRenderer ("". split (""), "" .split (""), channelOptions);
StackExchange.using ("externalEditor", function () {
// Devo attivare l'editor dopo gli snippet, se gli snippet sono abilitati
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using ("snippets", function () {
createEditor ();
});
}
altro {
createEditor ();
}
});
function createEditor () {
StackExchange.prepareEditor ({
useStacksEditor: false,
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
suffisso: "",
imageUploader: {
brandingHtml: "Powered by \ u003ca href = \" https: //imgur.com/ \ "\ u003e \ u003csvg class = \" svg-icon \ "width = \" 50 \ "height = \" 18 \ "viewBox = \ "0 0 50 18 \" fill = \ "none \" xmlns = \ "http: //www.w3.org/2000/svg \" \ u003e \ u003cpath d = \ "M46.1709 9.17788C46.1709 8.26454 46.2665 7.94324 47.1084 7.58816C47.4091 7.46349 47.7169 7.36433 48.0099 7.26993C48.9099 6.97997 49.672 6.73443 49.672 5.93063C49.672 5.22043 48.9832 4.61182 48.1414 4.61182C47.4335 4.62993C48.9099 6.97997 49.672 6.73443 49.672 5.93063C49.672 5.22043 48.9832 4.61182 48.1414 4.61182C47.4335 4.62481 46.72543 4.9162889 464562 46.72543 4.9162889 4.645.2543 4.6531 4.69562 4.65.695.65.69562 C4562 4.6531.495.65.69562 C4562.65.695.6531.495.69562 C4562. 43.1481 6.59048V11.9512C43.1481 13.2535 43.6264 13.8962 44.6595 13.8962C45.6924 13.8962 46.1709 13.2535 46.1709 11.9512V9.17788Z \ "/ \ u003e \ u003cpath d = \" M32.492 10.1419C324.192 14.695 14.6954C32.418 14.695.0 14.6954 41.5985 12.6954 41.5985 10.1419V6.59049C41.5985 5.28821 41.1394 4.66232 40.1061 4.66232C39.0732 4.66232 38.5948 5.28821 38.5948 6.59049V9.60062C38.5948 10.8521 38.2696 11.5455 37.0451 11.5455.5 C35.820 35 521 35.4954 9.60062V6.59049C35.4954 5.28821 35.0173 4.66232 34.0034 4.66232C32.9703 4.66232 32.492 5.28821 32.492 6.59049V10.1419Z \ "/ \ u003e \ u003cpath fill-rule = \" evenodd \ "clip-rule = \" evenodd \ "d = \ "M25.6622 17.6335C27.8049 17.6335 29.373916.9402 30.2537 15.6379C30.8468 14.7755 30.9615 13.5579 30.9615 11.9512V6.59049C30.9615 5.28821 30.4833 4.66231 29.4502 4.66231C28.9913 4.66231 28.4555 4.94978 28.11087 23.50789C27.499 4.86533 4.5413.009.536.536.499 4.86533 25.413.079 13,913 25,3754 13.913C26.5612 13,913 27,4607 13,4902 28,1109 12.6616C28.1109 12,7229 28,1161 12,7799 28,121 12.8346C28.1256 12,8854 28,1301 12,9342 28,1301 12.983C28.1301 14,4373 27,2502 15,2321 25,777 15.2321C24.8349 15,2321 24,1352 14,9821 23,5661 14.7787C23.176 14,6393 22,8472 14,5218 22,5437 14.5218C21.7977 14.5218 21.2429 15.0123 21.2429 15.6887C21.2429 16.7375 22.9072 17.6335 25.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 11.9072 17.6335 25.6622 17.6335ZM24.1317 9.27932C24.1317 7.94324 24.9928 7.09766 26.1024 7.09766C27.2119 7.09766 11.918 7.943.62.724.2119.2724.918.518.2711.918.518.2711.924.518.2711.918.518.2711.932.918.518. 10.6491 24.1317 9.27932Z \ "/ \ u003e \ u003cpath d = \" M16.8045 11.9512C16.8045 13.2535 17.2637 13.8962 18.2965 13.8962C19.3298 13.8962 19.8079 13.2535 19.8079 11.9512V8.12928C19.8079 5.82936 18.4879 4.62866 16.4027 4.62866C15.1594 4.62866 14.279 4.98375 13.3609 5.88013C12.653 5.05154 11.6581 4.62866 10.3573 4.62866C3.34336 4.62899 7.920 4.632 44.532 4.879.478 4.632 4.879.432 4.879.478 4.632 4.732 4.879.432.532.732.478.479.532.478.432 4.66232 5.00066 5.28821 5.00066 6.59049V11.9512C5.00066 13.2535 5.47873 13.8962 6.51203 13.8962C7.54479 13.8962 8.0232 13.2535 8.0232 11.9512V8.90741C8.0232 7.58817 8.44431 6.91179 9.53458 6.91179C10.510.844 8.91179C10.510.844 8.91179 13.8962C13.4375 13.8962 13.9157 13.2535 13.9157 11.9512V8.90741C13.9157 7.58817 14.3365 6.91179 15.4269 6.91179C16.4027 6.91179 16.8045 7.58817 16.8045 8.94108V11.9512Z \ "/ \ u003e \ u003cpath3385.275" 6.588 "M3385.2755.5883.538 4.66232 1.82471 4.66232C0.791758 4.66232 0.313354 5.28821 0.313354 6.59049V11.9512C0.313354 13.2535 0.791758 13.8962 1.82471 13.8962C2.85798 13.8962 3.31675 13.2535 3.31675 11.9512V6.59 049Z \ "/ \ u003e \ u003cpath d = \" M1.87209 0.400291C0.843612 0.400291 0 1.1159 0 1.98861C0 2.87869 0.822846 3.57676 1.87209 3.57676C2.90056 3.57676 3.7234 2.87869 3.7234 1.98861C300 0.41 = \ "# 1BB76E \" / \ u003e \ u003c / svg \ u003e \ u003c / a \ u003e ",
contentPolicyHtml: "Contributi utente concessi in licenza con \ u003ca href = \" https: //stackoverflow.com/help/licensing \ "\ u003ecc by-sa \ u003c / a \ u003e \ u003ca href = \" https://stackoverflow.com / legal / content-policy \ "\ u003e (content policy) \ u003c / a \ u003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
, immediatamenteShowMarkdownHelp: true, enableTables: true, enableSnippets: true
});
}
});
Grazie per aver contribuito con una risposta a Stack Overflow!
Assicurati di rispondere alla domanda. Fornisci dettagli e condividi la tua ricerca!
Ma evita ...
Chiedere aiuto, chiarimenti o rispondere ad altre risposte.
Fare dichiarazioni basate su opinioni; supportali con riferimenti o esperienza personale.
Per saperne di più, consulta i nostri suggerimenti su come scrivere ottime risposte.
Bozza salvata
Bozza scartata
Registrati o fai il login
StackExchange.ready (function () {
StackExchange.helpers.onClickDraftSave ('# login-link');
});
Registrati utilizzando Google
Iscriviti utilizzando Facebook
Iscriviti utilizzando e-mail e password
Invia
Pubblica come ospite
Nome
E-mail
Obbligatorio, ma mai mostrato
StackExchange.ready (
funzione () {
StackExchange.openid.initPostLogin ('. New-post-login', 'https% 3a% 2f% 2fstackoverflow.com% 2fquestions% 2f5935133% 2fprolog-how-to-remove-every-second-element-of-a-list% 23new-answer ',' question_page ');
}
);
Pubblica come ospite
Nome
E-mail
Obbligatorio, ma mai mostrato
Pubblica la tua risposta
Scartare
Facendo clic su "Pubblica la tua risposta", accetti i nostri termini di servizio, politica sulla privacy e politica sui cookie
Non è la risposta che stai cercando? Sfoglia altre domande contrassegnate con list prolog o fai la tua domanda.